home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 26
/
AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso
/
Service
/
BACKUP1
< prev
next >
Wrap
Text File
|
1999-03-29
|
1KB
|
38 lines
setenv .val2 "Ueberprüfe Backup..."
setenv .apcdpic1 31
setenv .apcdpic2 32
gui vorher:sub2.gc
gui vorher:change.gc
if exists sys:back
Echo >env:afuturetxt "Text *"Backup gefunden!*"*nText *"Wollen sie die gesicherten Daten wiederherstellen?*"*n"
run >nil: play16 >nil: sounds/`random 2`
set wollen `selector req.sel "Ja, jetzt kopieren!" "Nein, weitermachen!"`
if $wollen eq 1
cd sys:back
copy #? all TO SYS: quiet ;Das _SOLLTE_ eigentlich funktionieren....
cd vorher:
EXECUTE ENDE
QUIT ;Zur Sicherheit....
endif
endif
setenv .val 50
gui vorher:sub.gc
echo >env:afuturetxt "Text *"Wollen sie, daß in*"*nText *"SYS:Back/*"*nText *"Backups der Dateien erzeugt werden,*"*nText *"die evtl. kopiert werden?*"*n"
run >nil: play16 >nil: sounds/`random 2`
set backup `selector req.sel Ja Nein`
if $backup eq 1
makedir sys:Back >NIL:
set backy 0
lab backfor
if $backy eq $anzahl
skip backnext
endif
set backy `eval $backy + 1`
MAKEDIR sys:back/`getenv var$backy` >NIL:
skip back backfor
lab backnext
endif
setenv .val 100
gui vorher:sub.gc
wait 1 secs